home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / routines / 4096 colours.amos / 4096 colours.amosSourceCode
AMOS Source Code  |  1990-01-25  |  9KB  |  163 lines
  1. Screen Open 2,350,300,4096,Lowres
  2. Screen Display 2,118,40,350,300
  3. Limit Mouse 118,40 To 450,300
  4. Curs Off 
  5. Cls 2 : Pen(0) : Paper 2 : Ink 0
  6. Box 0,7 To 45,27 : Box 47,7 To 92,27
  7. Box 94,7 To 139,27 : Box 141,7 To 186,27
  8. Box 188,7 To 233,27 : Box 235,7 To 280,27
  9. Box 282,7 To 327,27
  10. Box 0,40 To 45,60 : Box 47,40 To 92,60
  11. Box 94,40 To 139,60 : Box 141,40 To 186,60
  12. Box 188,40 To 233,60 : Box 235,40 To 280,60
  13. Box 282,40 To 327,60
  14. Box 0,74 To 45,94 : Box 47,74 To 92,94
  15. Box 94,74 To 139,94 : Box 141,74 To 186,94
  16. Box 188,74 To 233,94 : Box 235,74 To 280,94
  17. Box 282,74 To 327,94
  18. Box 0,105 To 45,125 : Box 47,105 To 92,125
  19. Box 94,105 To 139,125 : Box 141,105 To 186,125
  20. Box 188,105 To 233,125 : Box 235,105 To 280,125
  21. Box 282,105 To 327,125
  22. Box 0,136 To 45,156 : Box 47,136 To 92,156
  23. Box 94,136 To 139,156 : Box 141,136 To 186,156
  24. Box 188,136 To 233,156 : Box 235,136 To 280,156
  25. Box 282,136 To 327,156
  26. Box 0,169 To 45,189 : Box 47,169 To 92,189
  27. Box 94,169 To 139,189 : Box 141,169 To 186,189
  28. Box 188,169 To 233,189 : Box 235,169 To 280,189
  29. Box 282,169 To 327,189
  30. Box 0,200 To 45,220 : Box 47,200 To 92,220
  31. Box 94,200 To 139,220 : Box 141,200 To 186,220
  32. Box 188,200 To 233,220 : Box 235,200 To 280,220
  33. Box 282,200 To 327,220
  34. Box 300,240 To 320,250
  35. Locate 37,29 : Print "Exit"
  36. ST:
  37. Locate 2,29 : Print Space$(30)
  38. Locate 2,30 : Print Space$(30)
  39. Locate 2,29 : Print "Select colour number"
  40. Locate 2,30 : Input "and press return ";C$
  41. C=Val(C$)
  42. If C>4096 Then Goto ST
  43. Locate 2,29 : Print "Select position and  "
  44. Locate 2,30 : Print "press LH button or exit"
  45. Gosub CO
  46. Goto ST
  47. ED:
  48. Cls 
  49. Edit 
  50. Return 
  51. CO:
  52. While Mouse Key=0 : Wend 
  53. X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  54. If X>300 and Y>240 Then Goto SQ
  55. Gosub DK : Gosub CA : Goto ST
  56. Goto CO
  57. SQ:
  58. Ink 1 : Bar 301,241 To 319,249
  59. Wait 10 : 
  60. Ink 0 : Bar 301,241 To 319,249
  61. Cls : Edit 
  62. CA:
  63. If A$="A1" Then Ink C : Bar 1,8 To 44,26 : Locate 1,4 : Print Space$(5) : Locate 1,4 : Print C$
  64. If A$="A2" Then Ink C : Bar 48,8 To 91,26 : Locate 6,4 : Print Space$(5) : Locate 6,4 : Print C$
  65. If A$="A3" Then Ink C : Bar 95,8 To 138,26 : Locate 12,4 : Print Space$(5) : Locate 12,4 : Print C$
  66. If A$="A4" Then Ink C : Bar 142,8 To 185,26 : Locate 18,4 : Print Space$(5) : Locate 18,4 : Print C$
  67. If A$="A5" Then Ink C : Bar 189,8 To 232,26 : Locate 24,4 : Print Space$(5) : Locate 24,4 : Print C$
  68. If A$="A6" Then Ink C : Bar 236,8 To 279,26 : Locate 30,4 : Print Space$(5) : Locate 30,4 : Print C$
  69. If A$="A7" Then Ink C : Bar 283,8 To 327,26 : Locate 36,4 : Print Space$(5) : Locate 36,4 : Print C$
  70. If A$="B1" Then Ink C : Bar 1,41 To 44,59 : Locate 1,8 : Print Space$(5) : Locate 1,8 : Print C$
  71. If A$="B2" Then Ink C : Bar 48,41 To 91,59 : Locate 6,8 : Print Space$(5) : Locate 6,8 : Print C$
  72. If A$="B3" Then Ink C : Bar 95,41 To 138,59 : Locate 12,8 : Print Space$(5) : Locate 12,8 : Print C$
  73. If A$="B4" Then Ink C : Bar 142,41 To 185,59 : Locate 18,8 : Print Space$(5) : Locate 18,8 : Print C$
  74. If A$="B5" Then Ink C : Bar 189,41 To 232,59 : Locate 24,8 : Print Space$(5) : Locate 24,8 : Print C$
  75. If A$="B6" Then Ink C : Bar 236,41 To 279,59 : Locate 30,8 : Print Space$(5) : Locate 30,8 : Print C$
  76. If A$="B7" Then Ink C : Bar 283,41 To 326,59 : Locate 36,8 : Print Space$(5) : Locate 36,8 : Print C$
  77. If A$="C1" Then Ink C : Bar 1,75 To 44,93 : Locate 1,12 : Print Space$(5) : Locate 1,12 : Print C$
  78. If A$="C2" Then Ink C : Bar 48,75 To 91,93 : Locate 6,12 : Print Space$(5) : Locate 6,12 : Print C$
  79. If A$="C3" Then Ink C : Bar 95,75 To 138,93 : Locate 12,12 : Print Space$(5) : Locate 12,12 : Print C$
  80. If A$="C4" Then Ink C : Bar 142,75 To 185,93 : Locate 18,12 : Print Space$(5) : Locate 18,12 : Print C$
  81. If A$="C5" Then Ink C : Bar 189,75 To 232,93 : Locate 24,12 : Print Space$(5) : Locate 24,12 : Print C$
  82. If A$="C6" Then Ink C : Bar 236,75 To 279,93 : Locate 30,12 : Print Space$(5) : Locate 30,12 : Print C$
  83. If A$="C7" Then Ink C : Bar 283,75 To 326,93 : Locate 36,12 : Print Space$(5) : Locate 36,12 : Print C$
  84. If A$="D1" Then Ink C : Bar 1,106 To 44,124 : Locate 1,16 : Print Space$(5) : Locate 1,16 : Print C$
  85. If A$="D2" Then Ink C : Bar 48,106 To 91,124 : Locate 6,16 : Print Space$(5) : Locate 6,16 : Print C$
  86. If A$="D3" Then Ink C : Bar 95,106 To 138,124 : Locate 12,16 : Print Space$(5) : Locate 12,16 : Print C$
  87. If A$="D4" Then Ink C : Bar 142,106 To 185,124 : Locate 18,16 : Print Space$(5) : Locate 18,16 : Print C$
  88. If A$="D5" Then Ink C : Bar 189,106 To 232,124 : Locate 24,16 : Print Space$(5) : Locate 24,16 : Print C$
  89. If A$="D6" Then Ink C : Bar 236,106 To 279,124 : Locate 30,16 : Print Space$(5) : Locate 30,16 : Print C$
  90. If A$="D7" Then Ink C : Bar 283,106 To 326,124 : Locate 36,16 : Print Space$(5) : Locate 36,16 : Print C$
  91. If A$="E1" Then Ink C : Bar 1,137 To 44,155 : Locate 1,20 : Print Space$(5) : Locate 1,20 : Print C$
  92. If A$="E2" Then Ink C : Bar 48,137 To 91,155 : Locate 6,20 : Print Space$(5) : Locate 6,20 : Print C$
  93. If A$="E3" Then Ink C : Bar 95,137 To 138,155 : Locate 12,20 : Print Space$(5) : Locate 12,20 : Print C$
  94. If A$="E4" Then Ink C : Bar 142,137 To 185,155 : Locate 18,20 : Print Space$(5) : Locate 18,20 : Print C$
  95. If A$="E5" Then Ink C : Bar 189,137 To 232,155 : Locate 24,20 : Print Space$(5) : Locate 24,20 : Print C$
  96. If A$="E6" Then Ink C : Bar 236,137 To 279,155 : Locate 30,20 : Print Space$(5) : Locate 30,20 : Print C$
  97. If A$="E7" Then Ink C : Bar 283,137 To 326,155 : Locate 36,20 : Print Space$(5) : Locate 36,20 : Print C$
  98. If A$="F1" Then Ink C : Bar 1,170 To 44,188 : Locate 1,24 : Print Space$(5) : Locate 1,24 : Print C$
  99. If A$="F2" Then Ink C : Bar 48,170 To 91,188 : Locate 6,24 : Print Space$(5) : Locate 6,24 : Print C$
  100. If A$="F3" Then Ink C : Bar 95,170 To 138,188 : Locate 12,24 : Print Space$(5) : Locate 12,24 : Print C$
  101. If A$="F4" Then Ink C : Bar 142,170 To 185,188 : Locate 18,24 : Print Space$(5) : Locate 18,24 : Print C$
  102. If A$="F5" Then Ink C : Bar 189,170 To 232,188 : Locate 24,24 : Print Space$(5) : Locate 24,24 : Print C$
  103. If A$="F6" Then Ink C : Bar 236,170 To 279,188 : Locate 30,24 : Print Space$(5) : Locate 30,24 : Print C$
  104. If A$="F7" Then Ink C : Bar 283,170 To 326,188 : Locate 36,24 : Print Space$(5) : Locate 36,24 : Print C$
  105. If A$="G1" Then Ink C : Bar 1,201 To 44,219 : Locate 1,28 : Print Space$(5) : Locate 1,28 : Print C$
  106. If A$="G2" Then Ink C : Bar 48,201 To 91,219 : Locate 6,28 : Print Space$(5) : Locate 6,28 : Print C$
  107. If A$="G3" Then Ink C : Bar 95,201 To 138,219 : Locate 12,28 : Print Space$(5) : Locate 12,28 : Print C$
  108. If A$="G4" Then Ink C : Bar 142,201 To 185,219 : Locate 18,28 : Print Space$(5) : Locate 18,28 : Print C$
  109. If A$="G5" Then Ink C : Bar 189,201 To 232,219 : Locate 24,28 : Print Space$(5) : Locate 24,28 : Print C$
  110. If A$="G6" Then Ink C : Bar 236,201 To 279,219 : Locate 30,28 : Print Space$(5) : Locate 30,28 : Print C$
  111. If A$="G7" Then Ink C : Bar 283,201 To 326,219 : Locate 36,28 : Print Space$(5) : Locate 36,28 : Print C$
  112. Return 
  113. DK:
  114. If X>0 and X<46 and Y>7 and Y<27 Then A$="A1"
  115. If X>47 and X<92 and Y>7 and Y<27 Then A$="A2"
  116. If X>94 and X<139 and Y>7 and Y<27 Then A$="A3"
  117. If X>141 and X<186 and Y>7 and Y<27 Then A$="A4"
  118. If X>188 and X<233 and Y>7 and Y<27 Then A$="A5"
  119. If X>235 and X<280 and Y>7 and Y<27 Then A$="A6"
  120. If X>282 and X<327 and Y>7 and Y<27 Then A$="A7"
  121. If X>0 and X<46 and Y>40 and Y<60 Then A$="B1"
  122. If X>47 and X<92 and Y>40 and Y<60 Then A$="B2"
  123. If X>94 and X<139 and Y>40 and Y<60 Then A$="B3"
  124. If X>141 and X<186 and Y>40 and Y<60 Then A$="B4"
  125. If X>188 and X<233 and Y>40 and Y<60 Then A$="B5"
  126. If X>235 and X<280 and Y>40 and Y<60 Then A$="B6"
  127. If X>282 and X<327 and Y>40 and Y<60 Then A$="B7"
  128. If X>0 and X<46 and Y>74 and Y<94 Then A$="C1"
  129. If X>47 and X<92 and Y>74 and Y<94 Then A$="C2"
  130. If X>94 and X<139 and Y>74 and Y<94 Then A$="C3"
  131. If X>141 and X<186 and Y>74 and Y<94 Then A$="C4"
  132. If X>188 and X<233 and Y>74 and Y<94 Then A$="C5"
  133. If X>235 and X<280 and Y>74 and Y<94 Then A$="C6"
  134. If X>282 and X<327 and Y>74 and Y<94 Then A$="C7"
  135. If X>0 and X<46 and Y>105 and Y<125 Then A$="D1"
  136. If X>47 and X<92 and Y>105 and Y<125 Then A$="D2"
  137. If X>94 and X<139 and Y>105 and Y<125 Then A$="D3"
  138. If X>141 and X<186 and Y>105 and Y<125 Then A$="D4"
  139. If X>188 and X<233 and Y>105 and Y<125 Then A$="D5"
  140. If X>235 and X<280 and Y>105 and Y<125 Then A$="D6"
  141. If X>282 and X<327 and Y>105 and Y<125 Then A$="D7"
  142. If X>0 and X<46 and Y>136 and Y<156 Then A$="E1"
  143. If X>47 and X<92 and Y>136 and Y<156 Then A$="E2"
  144. If X>94 and X<139 and Y>136 and Y<156 Then A$="E3"
  145. If X>141 and X<186 and Y>136 and Y<156 Then A$="E4"
  146. If X>188 and X<233 and Y>136 and Y<156 Then A$="E5"
  147. If X>235 and X<280 and Y>136 and Y<156 Then A$="E6"
  148. If X>282 and X<327 and Y>136 and Y<156 Then A$="E7"
  149. If X>0 and X<46 and Y>169 and Y<189 Then A$="F1"
  150. If X>47 and X<92 and Y>169 and Y<189 Then A$="F2"
  151. If X>94 and X<139 and Y>169 and Y<189 Then A$="F3"
  152. If X>141 and X<186 and Y>169 and Y<189 Then A$="F4"
  153. If X>188 and X<233 and Y>169 and Y<189 Then A$="F5"
  154. If X>235 and X<280 and Y>169 and Y<189 Then A$="F6"
  155. If X>282 and X<327 and Y>169 and Y<189 Then A$="F7"
  156. If X>0 and X<46 and Y>200 and Y<220 Then A$="G1"
  157. If X>47 and X<92 and Y>200 and Y<220 Then A$="G2"
  158. If X>94 and X<139 and Y>200 and Y<220 Then A$="G3"
  159. If X>141 and X<186 and Y>200 and Y<220 Then A$="G4"
  160. If X>188 and X<233 and Y>200 and Y<220 Then A$="G5"
  161. If X>235 and X<280 and Y>200 and Y<220 Then A$="G6"
  162. If X>282 and X<327 and Y>200 and Y<220 Then A$="G7"
  163. Return